home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / penny allowance (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  2KB  |  42 lines
  1. 0 REM" * * P E N N Y    A L L O W A N C E * *
  2. 2 [143]"
  3. 10 REM                  BY LARRY IRELAND
  4. 20 PRINT"[147][151]":POKE53280,13:POKE53281,15
  5. 30 PRINT" ?    THE PENNY ALLOWANCE QUESTION   [151] ?"
  6. 31 PRINT"      [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  7. 40 PRINT"[151]ON THE FIRST DAY OF FEBRUARY MY BOSS"
  8. 45 PRINT" OFFERED TO GIVE ME ONE PENNY AS MY PAY"
  9. 50 PRINT" & SAID THAT HE WOULD DOUBLE THE AMOUNT"
  10. 55 PRINT" EVERY DAY UNTIL THE END OF THE MONTH."
  11. 60 PRINT" SHOULD I ACCEPT HIS OFFER ?"
  12. 65 PRINT"(THE PROGRAM HAS STOPPED SO THAT YOU CANUSE THE COMPUTER TO ";
  13. 70 PRINT"CALCULATE THE AMOUNTI WOULD EARN...............WHEN YOU ARE"
  14. 75 PRINT"READY ....TYPE 'RUN 100' &   RETURN[146]  )[145][145][145]"
  15. 80 END:OF PART ONE
  16. 100 PRINT"[145]                                              DID YOU SAY YES OR NO?"
  17. 110 INPUT"               ";AN$
  18. 115 AN$=LEFT$(AN$,1)
  19. 116 IFAN$="Y" OR AN$="N"THEN120
  20. 117 GOTO110
  21. 120 PRINT"[147]":W$="     I AGREE"
  22. 125 IFAN$="N"THEN W$="  I DISAGREE"
  23. 130 PRINTW$;" WITH YOU. HERE IS WHY :-"
  24. 135 FOR T=1TO2400:NEXT
  25. 140 PRINT"     DATE [146]      PAY [146]      $ TO DATE [146]"
  26. 145 T=0:P=.5
  27. 150 FOR D=1 TO 28
  28. 155 P=P*2:PP=P/100:P$=STR$(PP):D$=STR$(D)
  29. 156 TT=PP+TT:T$=STR$(TT)
  30. 160 PRINT TAB(8-LEN(D$));D;TAB(21-LEN(P$))PP;TAB(36-LEN(T$))TT
  31. 170 FORT=1TO900:NEXT: NEXT
  32. 175 PRINT"     DATE [146]      PAY [146]      $ TO DATE [146]"
  33. 177 AMT$=LEFT$(P$,2)+","+MID$(P$,3,3)+","+RIGHT$(P$,6)
  34. 180 PRINT"  SO ON THE LAST DAY OF FEBRUARY I WOULD HAVE BEEN PAID  $";AMT$;" !";
  35. 190 PRINT" AND     MY BANK BALANCE WOULD HAVE BEEN...."
  36. 192 BAL$=LEFT$(T$,2)+","+MID$(T$,3,3)+","+RIGHT$(T$,6)
  37. 195 PRINT"                     $";BAL$
  38. 196 POKE198,0
  39. 200 GETX$:IFX$=""THEN200
  40. 210 PRINT"[147][154]":POKE53281,6:POKE53280,14
  41. 220 END:OF PROGRAM
  42.